Private Sub Command1_Click()
    If Text1 = "" Then
        MsgBox "Ingrese una contraseña válida"
    End If
End Sub

Private Sub Command1_Click()
    If Not IsNumeric(Text1) Then
        MsgBox "Ingrese únicamente números"
    End If
End Sub

Private Sub Command1_Click()
    If IsNumeric(Text1) Then
        MsgBox "Ingrese únicamente letras"
    End If
End Sub

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Const SND_SYNC = &H0
Const SND_NODEFAULT = &H2

Private Sub Command1_Click()
Dim rst&
    rst = sndPlaySound("c:\windows\media\chimes.wav", SND_SYNC Or SND_NODEFAULT)
End Sub

Private Sub Command1_Click()
Dim ok As Boolean
    For i = 0 To Forms.Count - 1 '---> Recorre todos los formularios con el objeto "Forms"
        If Text1 = Forms(i).Caption Then '---> Compara con el q tipeaste
            Forms(i).Show '---> Lo ejecuta
            ok = True
        End If
    Next
    If ok = False Then
        MsgBox "El Form " & Text1 & " no existe."
    End If
End Sub

Private Sub Form_Load()
    Form1.Hide '---> Carga el Form1 pero no lo muestra
    Form2.Hide '---> Carga el Form2 pero no lo muestra
End Sub

Private Sub Form_Unload(Cancel As Integer)
    For i = Forms.Count - 1 To 0 Step -1
        Unload Forms(i) '---> Cierra todos los form
    Next
End Sub

 Text1.Text = text1.Text + vbCrLf
 '----
 Text1.SelStart = Len(Text1)
 Text1.SetFocus