Ti parlo da VB6 ma forse andrà bene per VB.net. Il codice è:

codice:
Private Sub Command1_Click()
Dim Pippo as String
Dim Pluto as String
If Len(Pippo) < 9 Then
Nuovastr = Pippo + Space(9 - Len(Pippo)) + Pluto
Text1 = Nuovastr
End If
End Sub