Imports System

    Imports System.Text.RegularExpressions          

Public Module Module1

    Public Sub Main()

        dim unicode_value as string="aa"

        if unicode_value.Contains("a")

             unicode_value= Regex.Replace(unicode_value, “a”,”அ”)

        elseif unicode_value.Contains("aa")

                unicode_value= Regex.Replace(unicode_value, “aa”,”ஆ”)

        end if

        ' unicode_value = unicode_value.replace(“a”,”அ”)

    ' unicode_value = unicode_value.replace(“aa”,”ஆ”)

    console.WriteLine(unicode_value)

    End Sub

End Module