AAAUUURRGH! Create a Function

[Static]

Ok..it has been so long since i have done this that i cant get it to work!!! AAAUUURRGGGHH!!!

this is the function:

Public Function MapPos(X As Integer, Y As Integer)
MyLoc.X = X * 217
MyLoc.Y = Y * 217
MyShip.Left = MyLoc.X
MyShip.Top = MyLoc.Y
End Function

trying to call the function:

Private Sub Command1_Click()
z = 1
g = 5
MapPos z, g
End Sub

I get a ByRef Type Mismatch and it points to the z???!!??

ok...Help PLEASE!