画面が青いよ！

Public Shared Function IsAlpha(ByVal str As String) As Boolean

    If IsNothing(str) Then

        Return False

    End If

    For Each ch As Char In str.ToCharArray

        If Not Char.IsLetter(ch) Then

            Return False

        End If

    Next

    Return True

End Function