Si infatti come dice oregon non ha proprio senso, oppure non è che vuoi fare una cosa del genere?:
codice:
Private Sub Form_Load()
Dim txt As String

Text1.Text = "contenuto textbox"

txt = CStr(Text1.Text)
End Sub