c in VB

Hi,
It is possible to convert this script C in VB.
Thank you in advance..[:cry:]

char*DBA = NULL;

if (GetTagBit("CPT_N-1") == 0)
{
SetTagBit("CPT_N-1",1);
DBA= GetTagChar("DByyy");
strcat(DBA,"N-1");
SetTagChar("DBxxx",DBA);
}
else
SetTagBit("CPT_N-1",0);

if (GetTagBit("CPT_N-1") == 0)
{
DBA= GetTagChar("DByyy");
SetTagChar("DBxxx",DBA);
}

Dim var1,var2,var3

Dim DBA
Set var1 = HMIRuntime.Tags("CPT_N-1")
Set var2 = HMIRuntime.Tags("DBxxx")
Set var3 = HMIRuntime.Tags("DByyy")
var1.Read
var2.Read
var3.Read

If var1.Value = 0 Then
var1.Write "True",1
DBA = var2.Value
DBA=DBA+"N-1"
var3.Write DBA,1
Else
var1.Write "True",0

End If

If var1.Value = 0 Then
DBA = var3.Value
var2.Write DBA,1

End If


i think you should do something with this, at least you can make it work.. i answered this question only bcoz of sticky topic :)