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

[leeshadmi]

Hi
I have this function that i need your help to convert it to work on VB.Net 2008 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

[dglienna]

There is a String property that includes .Index()

What is the 12121212 in there for?

[leeshadmi]

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.

[dglienna]

This should help:

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

[DataMiser]

This line

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

Could be written something like

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

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

[Cimperiali]

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

 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