Quien me puede ayudar a cambiar este código..le agradecería un montón..

Public Function buscadua(Num As String) As Boolean

Dim valor As Boolean

Dim UltFila As Long

If valor = False Then Application.ScreenUpdating = False

End If '

==================

'Buscar Ultima Fila

'==================

Sheets("CORRELATIVO SAGA 2012").Select UltFila = ActiveSheet.Columns("E:E").Range_("E1048575").End(xlUp).Row
'==================

'Buscar Dato

'==================

Do Until UltFila = 2

If Trim(Num) = Trim(ActiveSheet.Cells(UltFila, 5)) Then

msgbox "Dua ya ingresado..", vbInformation, "Control y prevención"

valor = True
Exit Do
End If

UltFila = UltFila - 1

Loop
If valor = False Then msgbox "Dua no existe..", vbCritical, "Control y prevención"

BuscarPlaCis = False Else

'==================

'Datos de Hoja Saga

'==================

SREFERENCIA = Range("$F$" & UltFila)

SMERCADERIA = Range("$Y$" & UltFila)

SMANIFIESTO = Range("$M$" & UltFila)

'==========================

'Pasar data a Hoja Diseño

'==========================
' Sheets("DISEÑO").Select '

Range("C2") = SREFERENCIA

Range("K13") = SEMPRESA

Range("C7") = SMERCADERIA

Range("C6") = SMANIFIESTO
Application.ScreenUpdating = True
End If

End Function

este código me funciona,,,me busca y me captura los valores en una hoja..y en las 3 celdas q he mencionado..resulta q quisiera q funcione en un formulario q los datos me muestren..ya no en tres celdas sino en 3 texbox diferentes..se podrá..gracias edinson