Sample IsHiragana -TizzyT

    Public Class Hiragana
        Private Shared ReadOnly HiraganaTableA As String() =
            {"na", "n", "wa", "ra", "ya", "ma", "ha", "ta", "sa", "ka", "a", "i", "u"}
        Private Shared ReadOnly HiraganaTableB As String =
            "なんわらやまはたさかあいう"

        Public Shared Sub ToHiragana(ByRef Romanji As String)
            Romanji = Romanji.ToLower
            For i As Integer = 0 To HiraganaTableA.Length - 1
                Romanji = Romanji.Replace(HiraganaTableA(i), HiraganaTableB(i))
            Next
        End Sub

        Public Shared Function Parse(ByVal Romanji As String) As String
            ToHiragana(Romanji)
            Return Romanji
        End Function

        Public Shared Function IsHiragana(ByVal Hiragana As String) As Boolean
            For Each C As Char In Hiragana
                If Not HiraganaTableB.Contains(C.ToString) Then Return False
            Next
            Return True
        End Function
    End Class