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.

[pcid]

El error 13, según esta [URL="http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=48434&lngWId=1"]página[/URL] significa "The data is invalid".

En esa línea "Puerto = CLng(Buffer)", lo que debe estar pasando es que el contenido de la variable Buffer no es numérico o es un vacío.

Durante la ejecución podes ver el contenido de la variable"Buffer" dando doble click sobre ella y tecleando Shift+F9

O enviandola a la ventana "Inmmediate" con un debug.print

O poniendo una ventana de mensaje una línea antes de la del error con esto:
msgbox "Valor: [" & Buffer & "]"


Saludos.