Вы не можете.
Интерфейсы определяют контракты, которые другие объекты реализуют и поэтому не имеют никакого состояния, которое должно быть инициализировано.
, Если у Вас есть некоторое состояние, которое должно быть инициализировано, необходимо рассмотреть использование абстрактного базового класса вместо этого.
I think using Ubound should do the trick :
Private Sub Form_Load()
Dim aPath() As String
Dim FileName As String
Dim realExt As String
FileName = "A long dotty.file.name.txt"
aPath = Split(FileName, ".")
realExt = aPath(UBound(aPath))
MsgBox ("The real extension is: " & realExt)
Unload Me
End Sub