class3.cls
Public Sub ShowSth(Optional msg As String = "Hi")
If msg <> "" Then
MsgBox msg
End If
End Sub
Private Sub btnOptional_Click()
Dim obj As New Class3
'obj.ShowSth "Hello"
'obj.ShowSth
obj.ShowSth ""
End Sub
class3.cls
Public Sub ShowSth(Optional msg As String = "Hi")
If msg <> "" Then
MsgBox msg
End If
End Sub
Private Sub btnOptional_Click()
Dim obj As New Class3
'obj.ShowSth "Hello"
'obj.ShowSth
obj.ShowSth ""
End Sub