Originariamente inviato da MdE2005
Ciao..il codice che hai postato (il primo) va bene per risolvere il tuo problema, anche se non è ottimo in quanto non contempla l'eventualità che i caratteri siano più di 46, quindi che sono necessarie tre righe..
Cmq riprendendo il primo esempio se la lunghezza è maggiore di 23 allora te hai due stringhe, stringa1 e stringa2: le coordinate poi hai detto che le metti te..
codice:
Dim stringa1 As String, stringa2 as string
If Len(text1.text) > 23 Then
    stringa1 = Mid(text1.text, 1, 23)
    stringa2 = Mid(text1.text, 24, Len(text1.text) - 23)
End If
ciao
O anche ...

codice:
Dim stringa1 As String, stringa2 as string
If Len(text1.text) > 23 Then
    stringa1 = Mid(text1.text, 1, 23)
    stringa2 = Mid(text1.text, 24)
End If