[VB] ASCII Shifting Module

Function Crypt(Direction As Integer, Shift As Integer, StrText As String) As String
    Dim x As Long
    Dim TempInt As Integer
 
    x = 1
 
        StrText = Replace(StrText, vbCrLf, "")
 
    If Direction = 1 Then   ' 1 = forwards, 0 = backwards
 
        Do Until x > Len(StrText)
            TempInt = Asc(Mid(StrText, x, 1)) + Shift
                Crypt = Crypt + Chr(TempInt)
                    x = x + 1
        Loop
 
    End If
 
 
    If Direction = 0 Then
 
        Do Until x > Len(StrText)
            TempInt = Asc(Mid(StrText, x, 1)) - Shift
                Crypt = Crypt + Chr(TempInt)
                    x = x + 1
        Loop
 
    End If
 
 
End Function