Need help to convert this function from VB to VB.Net

Hi
I have this function that i need your help to convert it to work on VB.Net 2008 code:

Code:

---

Function BdikatTakinutMisparZeut(ByVal IDNumber As Object) As Integer       
        Dim SumAll As Byte, SumTemp As Byte, index As Byte
        Select Case True
            Case IsNothing(IDNumber) : BdikatTakinutMisparZeut = 1
            Case IDNumber = "" : BdikatTakinutMisparZeut = 2
            Case Not IsNumeric(IDNumber) : BdikatTakinutMisparZeut = 3
            Case Len(IDNumber) > 9 : BdikatTakinutMisparZeut = 4
            Case Else
                IDNumber = String$(9 - Len(IDNumber), "0") & IDNumber
                For index = 1 To 8
                    SumTemp = Mid(IDNumber, index, 1) * Mid("12121212", index, 1)
                    SumAll = SumAll + IIf(SumTemp < 10, SumTemp, 1 + Right(SumTemp, 1))
                Next index
                BdikatTakinutMisparZeut = Right(100 - SumAll, 1) = Right(IDNumber, 1)
        End Select 
    End Function

---

Basically i need the help with this code String$ and Right
Many thanks

There is a String property that includes .Index()

What is the 12121212 in there for?

Thanks but its not helping i need some one to translate the lines that contain String$ and the line that contain Right words since i just do not understnd it thats why i cant do it my self.

Basically this function is for ID number validation.

This should help:

http://msdn.microsoft.com/en-us/libr...=vs.71%29.aspx

This line

Code:

---

IDNumber = String$(9 - Len(IDNumber), "0") & IDNumber

---

Could be written something like

Code:

---

IDNumber=Mid("000000000",1,9-Len(IDNumber)) & IDNumber

---

You can also use mid() to replace the uses of right()

on the fly (you could find you have to fix something inside...)

Code:

---

Function BdikatTakinutMisparZeut(ByVal IDNumber As Object) As Integer
        Dim SumAll As Byte, SumTemp As Byte, index As Byte

        Select Case True
            Case IDNumber Is Nothing
                BdikatTakinutMisparZeut = 1
            Case String.IsNullOrEmpty(IDNumber)
                BdikatTakinutMisparZeut = 2
            Case Not IsNumeric(IDNumber)
                BdikatTakinutMisparZeut = 3
            Case Len(IDNumber.ToString) > 9
                BdikatTakinutMisparZeut = 4
            Case Else
                IDNumber = New String("0"c, 9 - Len(IDNumber.ToString)) & IDNumber
                For index = 1 To 8
                    SumTemp = Mid(IDNumber, index, 1) * Mid("12121212", index, 1)
                    SumAll = SumAll + IIf(SumTemp < 10, SumTemp, 1 + Integer.Parse(SumTemp.ToString.Substring(SumTemp.ToString.Length - 1, 1)))
                Next index
                Dim rsumAll As Integer = 100 - SumAll

                BdikatTakinutMisparZeut = rsumAll.ToString.Substring(Len(rsumAll.ToString)-1,1)  = (IDNumber.ToString.Substring(Len(IDNumber.ToString)-1  , 1)
        End Select
    End Function

---