Private Sub Command1_Click()
Public Function Connect(ByVal sRemoteHost As String, _
  Optional ByVal sUsername As String = text1.text, _
  Optional ByVal sPassword As String = text2.text) As Boolean
.
.
.
.
.
'hier also den restlichen code
End Sub