module2.bas

来自「2008年版」· BAS 代码 · 共 8 行

Attribute VB_Name = "Module2"
Public Sub length1(text As String, ilen As Integer, msg As String)
If Len(text) <> ilen Then
    MsgBox msg, 48, ""
    Exit Sub
End If
End Sub