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