dc.bas

TCP-IP数据库查询.zip

Attribute VB_Name = "DC"
Public Versie As Byte

Function StringZoek(str1 As String) As Boolean
Dim result

If Versie = 0 Then
'Origineel = "$MyINFO"... 0.9977
result = InStr(1, str1, "$MyINFO")
ElseIf Versie = 1 Then
result = InStr(1, str1, "$Version 1,0005|$GetNickList|$MyINFO")
End If
If result <> 0 Then
StringZoek = True
'MsgBox "ok"
Else
StringZoek = False
End If
End Function

Function Verander_HD(str As String, MB As String) As String
'Replace string.
'strbegin = Mid(str, 1, X - 1)
MB = (Val(MB) * 1.08)
strVerander = MB & 999 & 999
'Zoeken naar 5