Imports System Module StringLiteral Sub Main() Try Dim a As String='Hello' Dim b As String=Hello Catch e As Exception Console.WriteLine(e.Message) End Try End Sub End Module