Algo muchisimo mas util seria:
Creamos un inet en el frmmain y reemplazamos el sub por
Public Sub CargarServidores()
On Error GoTo errorH
Dim LagaC as byte ' Byte porque solo va a haber 1 ip.
ReDim ServersLst(1 To C) As tServerInfo
ServersLst(C).Ip = frmmain.inet1.openurl(<a href="http://TUWEB/IP.txt" class="postlink" rel="nofollow" onClick="window.open(this.href);return false;">http://TUWEB/IP.txt</a>)
ServersLst(C).Puerto = frmmain.inet1.openurl(<a href="http://TUWEB/PUERTO.txt" class="postlink" rel="nofollow" onClick="window.open(this.href);return false;">http://TUWEB/PUERTO.txt</a>)
CurServer = 1
Exit Sub
errorH:
Call MsgBox("Error cargando los servidores, Bajese el cliente de nuevo", vbCritical + vbOKOnly, "OMFG")
End Sub
Seria algo mas simple, y que aparte lo modificas por internet.