Se o negócio é pegar a posição do mouse, você pode usar a API:
Public Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
'This is the data type
Public Type POINTAPI
X As Long 'x coordinate of the mouse
Y As Long 'y coordinate of the mouse
End Type
E colocar um timer no formulário que grave as posições. Mas se quiser ainda assim usar do teu modo, use o mid assim:
pacote = mid(pacote,1, len(pacote))
isto vai selecionar somente o número de bits que o pacote tiver.