C# Online Compiler | .NET Fiddle

<no name> by Anonymous

Imports System

Public Class Program
    Private Shared Function CaesarCypher(ByVal value As String, ByVal shift As Integer) As String
        Dim buffer As Char() = value.ToCharArray()
        Dim i As Integer = 0

        While i And lt
            buffer.Length
        End While

        i += 1

        If True Then
            Dim letter As Char = buffer(i)

            If Char.IsLetter(letter) Then
                Dim isLower As Boolean = Char.IsLower(letter)
                letter = ChrW((letter + shift))

                If isLower Then
                    If letter And gt Then
                    End If

                                        ''' Cannot convert AssignmentExpressionSyntax, System.InvalidCastException: Unable to cast object of type 'Microsoft.CodeAnalysis.VisualBasic.Syntax.EmptyStatementSyntax' to type 'Microsoft.CodeAnalysis.VisualBasic.Syntax.ExpressionSyntax'.
'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.MakeAssignmentStatement(AssignmentExpressionSyntax node)
'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.VisitAssignmentExpression(AssignmentExpressionSyntax node)
'''    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)
'''    at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)
''' 
''' Input: 
''' &#x27;z&#x27;)
						letter = (char) (letter - 26)
''' 
                    If _ Then
                        _
                    ElseIf letter And lt Then
                    End If

                                        ''' Cannot convert AssignmentExpressionSyntax, System.InvalidCastException: Unable to cast object of type 'Microsoft.CodeAnalysis.VisualBasic.Syntax.EmptyStatementSyntax' to type 'Microsoft.CodeAnalysis.VisualBasic.Syntax.ExpressionSyntax'.
'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.MakeAssignmentStatement(AssignmentExpressionSyntax node)
'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.VisitAssignmentExpression(AssignmentExpressionSyntax node)
'''    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)
'''    at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)
''' 
''' Input: 
''' &#x27;a&#x27;)
						letter = (char) (letter + 26)
''' 
                Else

                    If letter And gt Then
                    End If

                                        ''' Cannot convert AssignmentExpressionSyntax, System.InvalidCastException: Unable to cast object of type 'Microsoft.CodeAnalysis.VisualBasic.Syntax.EmptyStatementSyntax' to type 'Microsoft.CodeAnalysis.VisualBasic.Syntax.ExpressionSyntax'.
'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.MakeAssignmentStatement(AssignmentExpressionSyntax node)
'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.VisitAssignmentExpression(AssignmentExpressionSyntax node)
'''    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)
'''    at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)
''' 
''' Input: 
''' &#x27;Z&#x27;)
						letter = (char)(letter - 26)
''' 
                    If _ Then
                        _
                    ElseIf letter And lt Then
                    End If

                                        ''' Cannot convert AssignmentExpressionSyntax, System.InvalidCastException: Unable to cast object of type 'Microsoft.CodeAnalysis.VisualBasic.Syntax.EmptyStatementSyntax' to type 'Microsoft.CodeAnalysis.VisualBasic.Syntax.ExpressionSyntax'.
'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.MakeAssignmentStatement(AssignmentExpressionSyntax node)
'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.VisitAssignmentExpression(AssignmentExpressionSyntax node)
'''    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)
'''    at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)
''' 
''' Input: 
''' &#x27;A&#x27;)
						letter = (char)(letter + 26)
''' 
                End If
            End If

            buffer(i) = letter
        End If

        Return New String(buffer)
    End Function

    Public Shared Sub Main()
        Dim secretMessage As String = _
                ''' Cannot convert PrefixUnaryExpressionSyntax, System.NotSupportedException: AddressOfExpression is not supported!
'''    at ICSharpCode.CodeConverter.VB.SyntaxKindExtensions.ConvertToken(SyntaxKind t, TokenContext context)
'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.VisitPrefixUnaryExpression(PrefixUnaryExpressionSyntax node)
'''    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)
'''    at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)
''' 
''' Input: 
''' &quot
''' 
        Dim MK As STGML
    End Sub
End Class

​x
 
Imports System
​
Public Class Program
    Private Shared Function CaesarCypher(ByVal value As String, ByVal shift As Integer) As String
        Dim buffer As Char() = value.ToCharArray()
        Dim i As Integer = 0
​
        While i And lt
            buffer.Length
        End While
​
        i += 1
​
        If True Then
            Dim letter As Char = buffer(i)
​
            If Char.IsLetter(letter) Then
                Dim isLower As Boolean = Char.IsLower(letter)
                letter = ChrW((letter + shift))
​
                If isLower Then
                    If letter And gt Then
                    End If
​
                                        ''' Cannot convert AssignmentExpressionSyntax, System.InvalidCastException: Unable to cast object of type 'Microsoft.CodeAnalysis.VisualBasic.Syntax.EmptyStatementSyntax' to type 'Microsoft.CodeAnalysis.VisualBasic.Syntax.ExpressionSyntax'.
'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.MakeAssignmentStatement(AssignmentExpressionSyntax node)
'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.VisitAssignmentExpression(AssignmentExpressionSyntax node)
'''    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)
'''    at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)
''' 
''' Input: 
''' &#x27;z&#x27;)
                        letter = (char) (letter - 26)
''' 
                    If _ Then
                        _
                    ElseIf letter And lt Then
                    End If
​
                                        ''' Cannot convert AssignmentExpressionSyntax, System.InvalidCastException: Unable to cast object of type 'Microsoft.CodeAnalysis.VisualBasic.Syntax.EmptyStatementSyntax' to type 'Microsoft.CodeAnalysis.VisualBasic.Syntax.ExpressionSyntax'.
'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.MakeAssignmentStatement(AssignmentExpressionSyntax node)
'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.VisitAssignmentExpression(AssignmentExpressionSyntax node)
'''    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)
'''    at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)
''' 
''' Input: 
''' &#x27;a&#x27;)
                        letter = (char) (letter + 26)
''' 
                Else
​
                    If letter And gt Then
                    End If
​
                                        ''' Cannot convert AssignmentExpressionSyntax, System.InvalidCastException: Unable to cast object of type 'Microsoft.CodeAnalysis.VisualBasic.Syntax.EmptyStatementSyntax' to type 'Microsoft.CodeAnalysis.VisualBasic.Syntax.ExpressionSyntax'.
'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.MakeAssignmentStatement(AssignmentExpressionSyntax node)
'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.VisitAssignmentExpression(AssignmentExpressionSyntax node)
'''    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)
'''    at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)
''' 
''' Input: 
''' &#x27;Z&#x27;)
                        letter = (char)(letter - 26)
''' 
                    If _ Then
                        _
                    ElseIf letter And lt Then
                    End If
​
                                        ''' Cannot convert AssignmentExpressionSyntax, System.InvalidCastException: Unable to cast object of type 'Microsoft.CodeAnalysis.VisualBasic.Syntax.EmptyStatementSyntax' to type 'Microsoft.CodeAnalysis.VisualBasic.Syntax.ExpressionSyntax'.
'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.MakeAssignmentStatement(AssignmentExpressionSyntax node)
'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.VisitAssignmentExpression(AssignmentExpressionSyntax node)
'''    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)
'''    at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)
''' 
''' Input: 
''' &#x27;A&#x27;)
                        letter = (char)(letter + 26)
''' 
                End If
            End If
​
            buffer(i) = letter
        End If
​
        Return New String(buffer)
    End Function
​
    Public Shared Sub Main()
        Dim secretMessage As String = _
                ''' Cannot convert PrefixUnaryExpressionSyntax, System.NotSupportedException: AddressOfExpression is not supported!
'''    at ICSharpCode.CodeConverter.VB.SyntaxKindExtensions.ConvertToken(SyntaxKind t, TokenContext context)
'''    at ICSharpCode.CodeConverter.VB.NodesVisitor.VisitPrefixUnaryExpression(PrefixUnaryExpressionSyntax node)
'''    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)
'''    at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)
''' 
''' Input: 
''' &quot
''' 
        Dim MK As STGML
    End Sub
End Class
​

View IL Code