Esta instruccion se utiliza cuando se necesita enviar el cursor al final de una oracion dentro de un textbox

Private Sub TxtTextoLibreDiagnostico_GotFocus()
TxtText.SelStart = Len(RTrim(TxtText.Text))
End Sub