Bug? Strange Syntax error

Sub Process_Globals
    Type MyType (test As String)
 
    Private gVariable As MyType
End Sub

Sub AppStart (Args() As String)
    GetVariable.Initialize
 
    GetVariable.test = "Test"
End Sub

Public Sub GetVariable As MyType
    Return gVariable
End Sub

Sub Class_Globals
   Private gVariable As MyType
End Sub

Public Sub Initialize

End Sub

Public Sub getVariable As MyType
  Return gVariable
End Sub

Dim c As YourClass
c.Initialize
c.Variable.Initialize
c.Variable.test = 10