Arkadaşlar vb6'dan ceviri yaptımda kaydet yaparken hata veriyor yardım lutfen

Elimdeki kodlar bunlar
Kod:
Dim i As Integer Dim T() As String For i = 0 To List1.ListCount - 1 T = Split(List1.List(i), "=") Call WriteINI("Bilgi", T(0), T(1), App.Path & "\Bilgi.ini") Next i Function WriteINI(sSection As String, sKeyName As String, sNewString As String, sFileName) As Integer Dim r r = WritePrivateProfileString(sSection, sKeyName, sNewString, sFileName) End Function
VB.Net'e cevirdiğim kısım
Kod:
Public Sub WriteINI(ByVal INIPath As String, ByVal SectionName As String, _ ByVal KeyName As String, ByVal TheValue As String) Dim r r = WritePrivateProfileString(SectionName, KeyName, TheValue, INIPath) End Sub Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click Dim i As Integer Dim T() As String For i = 0 To lsPoints.Items.Count - 1 T = Split(lsPoints.Items.IndexOf(i), "=") Call WriteINI("Bilgi", T(0), T(1), Application.StartupPath & "\Bilgi.ini") Next i End Sub

__________________