brainf*ck Interpreter

    Private Function BFInterpreter(ByVal astrBFCode As String) As String
        Dim pointer As Byte = 0
        Dim points(12) As Byte
        Dim strReturn As String = ""
 
        For bytI As Byte = 0 To Len(astrBFCode) - 1
            Dim testChar As Char = astrBFCode.Chars(bytI)
            Dim bytLoopStart As Byte
            Select Case testChar
                Case "+"
                    points(pointer) += 1
                Case "-"
                    points(pointer) -= 1
                Case "["
                    bytLoopStart = bytI
                Case "]"
                    If points(pointer) <> 0 Then
                        bytI = bytLoopStart
                    End If
                Case ">"
                    pointer += 1
                Case "<"
                    pointer -= 1
                Case "."
                    strReturn &= Convert.ToChar(points(pointer))
            End Select
        Next
 
        Return strReturn
    End Function