Dim obj As Test
obj.fx("オーバーロードを解決できません")

Class Test
Public
	Function fx(a As String) As Long
	End Function

	Function fx(a As String, b As Long) As Long
	End Function
End Class