Error '13' en tiempo de ejecución

[iven74]

Hola que tal espero puedan ayudarme con este problema.

Me tira el siguiente error:
Error '13' en tiempo de ejecución:
No coinciden los tipos.

Al darle depurar:

Public Sub ConfigRead()
Dim Buffer As String

Buffer = String(200, " ")
GetPrivateProfileString "CLIENT", "ServerPort", "7777", Buffer, 200, INI_FILE
Buffer = RTrim(Buffer)
Buffer = Left(Buffer, Len(Buffer) - 1)
WritePrivateProfileString "CLIENT", "ServerPort", Buffer, INI_FILE
Puerto = CLng(Buffer) <- Esto aparece remarcado de amarillo.

Buffer = String(200, " ")
GetPrivateProfileString "CLIENT", "ServerIP", "HostIP", Buffer, 200, INI_FILE
Buffer = RTrim(Buffer)
Buffer = Left(Buffer, Len(Buffer) - 1)
WritePrivateProfileString "CLIENT", "ServerIP", Buffer, INI_FILE
Host = Buffer

Buffer = String(200, " ")
GetPrivateProfileString "CLIENT", "Level", "0", Buffer, 200, INI_FILE
Buffer = RTrim(Buffer)
Buffer = Left(Buffer, Len(Buffer) - 1)
WritePrivateProfileString "CLIENT", "Level", Buffer, INI_FILE
TraceLevel = Buffer

Send2Log "Interpretando Información Base..."
Send2Log "Puerto Remoto: " & Puerto
Send2Log "Dirección IP del Servidor: " & Host

End Sub

Es una aplicación Cliente/Servidor, el código mostrado esta en el cliente.
Espero puedan ayudarme y de antemano muchas gracias.