Ya lo he solucionado, además le añadí un cuadro de diálogo si desea salir o no... ahora mi consulta es cuando el usuario desea salir qque instrucción se debe poner para que termine de ejecutarse el programa... alguna vez lo ví pero ahora ya se me olvidó..jejej. De todas formas aquí te mando todo el código del programita:
Function dblSqrt(dblParameter As Double) As Double
If dblParameter < 0 Then
dblSqrt = -1
Else
dblSqrt = Sqr(dblParameter)
End If
End Function
Private Sub Command1_Click()
Text1.Text = dblSqrt(CDbl(Text1.Text))
End Sub
Private Sub Command2_Click()
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Do you want to continue ?" ' Define message.
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons.
Title = "MsgBox Demonstration" ' Define title.
Help = "DEMO.HLP" ' Define Help file.
Ctxt = 1000 ' Define topic
' context.
' Display message.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' User chose Yes.
MyString = "Yes" ' Perform some action.
Text1.Text = ""
Else ' User chose No.
MyString = "No" ' Perform some action.
***********aquí quiero poner una instrucción para salir del programa****************
End If
End Sub
Ciao, y gracias