基本的VB(a)帮助；返回值。

Public Function MakeTen(X As Integer)
 ' make an int at least ten.
   If X >= 10 Then
   ' how do I return the value?
      End
   Else
      X = 1 + X
      MakeTen (X)
   End If
End Function
Sub MainProc()
 ' How do I ask for a value? 
 ' (dialog box is fine but how do I convert the string to an int?)
 ' ie Userform1.TextBox1.text ...
   MakeTen (...)
 ' now that I have an int at least ten how do I display it in a msgbox.
End Sub

Public Function Times10 ( Argument as Integer ) As Integer
    Times10  = 10 * Argument
End Function

Public Function MakeTen(X As Integer) As Integer
 ' make an int at least ten.
   If X >= 10 Then
    MakeTen = X
   Else
    MakeTen = 10
   End If
End Function
Sub MainProc()
Dim strValue As String
Dim i As Integer
strValue = InputBox("Please enter an Integer", "theswamp.org", 1)
i = MakeTen(CInt(strValue))
MsgBox i
End Sub