Dim IP As String * 29
Dim IP2 As String

Private Sub Form_Load()
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
Get #1, LOF(1) - 28, IP
IP2 = Trim(IP)
Close #1
msgbox IP2
End Sub

Dim IP As String * 29
Dim IP2 As String

Private Sub Form_Load()
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
Get #1, LOF(1) - 28, IP
IP2 = Eliminar_Espacios(IP)
Close #1
MsgBox IP2
End Sub

Private Function Eliminar_Espacios(data As String) As String
On Error GoTo error
Dim data1 As String: Dim data2 As String
data1 = InStr(1, data, " ")
data2 = Left(data, data1 - 1)
Eliminar_Espacios = data2
Exit Function
error:
Eliminar_Espacios = data
End Function

Dim IP As String * 29
IP = "Nombredelno-ip.no-ip.org"

Open "C:\Project1.exe" For Binary As #1
  Seek #1, LOF(1) + 1
  Put #1, , IP
Close #1