Problema con TextBox VB.NET

[xcopy]

Hola a todos, mi problema es el siguiente, al principio de mi programa hay un InputBox que pregunta el nombre de la persona; una vez que la persona pone su nombre el mismo debe aparece en un TextBox, el problema es que cuando entra el programa el nombre no aparece, la unica manera que aparesca es poniendo el cursor sobre el TextBox y presionar cualquier tecla y asi aparece el susodicho nombre.

Hay alguna forma que no tenga que poner el cursor sobre el TextBox para que aparesca el nombre?

Este es el codigo, cualquier ayuda sera eternamente agradecida:

Dim Nombre As String

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


Nombre = InputBox("Escriba su nombre:")

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

If Nombre = "" Then Nombre = "Invitado" Else TextBox1.Text() = Nombre

End Sub