[IPCONFIG]
IP=127.0.0.1
PORT=4000

Public Function GetVar(File As String, _
                       Header As String, _
                       Var As String) As String
Dim sSpaces  As String  ' Max string length
Dim szReturn As String  ' Return default value if not found
    szReturn = vbNullString
    sSpaces = Space$(5000)
    GetPrivateProfileString Header, Var, szReturn, sSpaces, Len(sSpaces), File
    GetVar = RTrim$(sSpaces)
    GetVar = Left$(GetVar, Len(GetVar) - 1)
End Function

Public Sub PutVar(File As String, _
                  Header As String, _
                  Var As String, _
                  Value As String)
    WritePrivateProfileString Header, Var, Value, File
End Sub

frmMirage.Socket.RemoteHost = GAME_IP
    frmMirage.Socket.RemotePort = GAME_PORT

Dim filename As String
    filename = App.Path & "\config.ini"

frmMirage.Socket.RemoteHost = GetVar(filename, "IPCONFIG", "IP")
    frmMirage.Socket.RemotePort = Val(GetVar(filename, "IPCONFIG", "PORT"))