Private Sub Command1_Click()
    Dim fs, f
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.CreateFolder("c:\MI_CARPETA\")
End Sub

'Para que no pueda pegar valores mayores a 60
Private Sub Text1_Change()
    If Val(Text1.Text) >= 60 Then
        Text1.Text = ""
    End If
End Sub

'Para que no permita escribir digitos de dos cifras que comienzen con un numero mayor o igual a 6
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii <> 8 Then
        If Val(Text1.Text) >= 6 Then
            KeyAscii = 0
        End If
    End If
End Sub

Private Sub Command1_Click()
    Dim a As String
    a = Mid(Text1.Text, 4, 1)
    MsgBox a
End Sub

    Dim strDato As String
    Dim archivo As String
    archivo = App.Path & ".\prueba.txt"
    Open archivo For Input As #1
    For i = 0 To ?? <- no se que poner aqui :(
        Input #1, strDato
        frmOpciones!lstSpyware.AddItem strDato
    Next i
    Close #1 

form2.winsock1.blabla