vb6程式碼改成VB2008 - 轉職

想做個遊戲經驗%計算有人給了我VB6範例只有程式原碼但部分與VB2008使用的不同會出現很多~~~~之類的東西想問問有人會改嗎Dimi,j,SumExp,i150AsInteger'i=計數器j=公式SumExp=總和i=1'從1等DoWhilei<=Val(Text1(0).Text)'i算到自己的等級IfCheck1(0).Value=vbCheckedThen'若轉職被勾選Ifi>150Then'若i算到轉職Lv>150j=Ro