Can anyone convert a code from VB6 to C# and VB.NET?

Hi guys!

i'm flash.tato a young developer.

I have a problem to convert this code from VB6 to C# and VB.NET.

Can anyone convert this code from VB6 to C# and VB.NET

rivate Sub cmdBIN2GIF_Click()
Dim sInput  As String
Dim iIndex  As Integer
Dim lPos    As Long
Dim lLen    As Long
Dim Fine    As Boolean
Dim sDestinazione   As String
   
    On Local Error Resume Next
   
    If cdlBrowse.FileName <> "" Then
        Label2.Caption = "Estrazione GIF in corso..."
       
        Open cdlBrowse.FileName For Binary As #1
            sInput = Space(FileLen(cdlBrowse.FileName))
            Get #1, 1, sInput
        Close #1
       
        PB1.Max = InStrRev(UCase$(sInput), "GIF89")
        PB1.Min = 0
        PB1.Value = 0
       
        iIndex = 0
       
        sDestinazione = Mid$(cdlBrowse.FileName, 1, InStrRev(cdlBrowse.FileName, ".") - 1)
        MkDir (sDestinazione)
               
        While Not Fine
            DoEvents
            lPos = InStr(2, UCase$(sInput), "GIF89")
            PB1.Value = PB1.Value + lPos
           
            If lPos <> 0 Then
                iIndex = iIndex + 1
                Open sDestinazione & "\GIF" & iIndex & ".gif" For Binary As #2
                    Put #2, 1, Mid$(sInput, 1, lPos - 1)
                Close #2
                sInput = Mid$(sInput, lPos)
            Else
                Fine = True
            End If
           
        Wend
       
        iIndex = iIndex + 1
        lPos = InStr(2, UCase$(sInput), "GIF87A")
        PB1.Value = PB1.Max
       
        Open sDestinazione & "\GIF" & iIndex & ".gif" For Binary As #2
            If lPos = 0 Then
                Put #2, 1, sInput
            Else
                Put #2, 1, Mid$(sInput, 1, lPos - 1)
            End If
        Close #2
        MsgBox "Estrazione GIF Completata!" & vbCr & "Estratte " & iIndex & " immagini!", vbInformation, "GIF Info"
    End If

End Sub

Thanks :D