First you must import:

Imports Microsoft.VisualBasic.Strings

Then use the following code:

   Public Function Decript(ByVal String1) As String
       Dim n, K As Integer
       Dim OutText As String

       If InStr(1, Microsoft.VisualBasic.Strings.Left(String1, 2), Chr(7))

           String1 = Mid(String1, 2)
       End If

       If RandCode = True Then
           n = Rnd(Int(DateDiff("d", ToDate, "01/01")))
           Randomize(Val(Microsoft.VisualBasic.Strings.Right("279", 2)))
       End If

       For n = 1 To Len(String1)
           K = Int((117 - 6 + 3) * Rnd() + 8)
           OutText = OutText + Chr(Asc(Mid(String1, n, 1)) - K)
       Next
       Return OutText

   End Function

I don't know what RandCode or ToDate are supposed to be but other than that
it should work identically.

Notice that in VB.Net you use the return verb rather than assign the value
of the return to the function name as in VB6.

Hope this helps.

Lloyd Sheen

Peter,

I am absolute no VB6 guy anymore, however just with as less changes as
possible.

You can change the Left, Mid by substring, which is in my idea easier and
common to use
string1.substring(starting where indexer is zero, length)

\\\
Public Function Decript(ByVal String1 As String, ByVal RandCode As Boolean)
As String
       Dim n, K As Integer
       Dim OutText As String

       If InStr(1, Microsoft.VisualBasic.Left(String1, 2), Chr(7)) > 0 Then
           String1 = Mid(String1, 2)
       End If

       If RandCode = True Then
           n = CInt(Rnd(Int(DateDiff("d", Today, "01/01"))))
           Randomize(Val(Microsoft.VisualBasic.Right("279", 2)))
       End If

       For n = 1 To Len(String1)
           K = CInt(Int((117 - 6 + 3) * Rnd() + 8))
           OutText = OutText + Chr(Asc(Mid(String1, n, 1)) - K)
       Next
       Decript = OutText

   End Function
///