Private Sub TranslateStringUsingTableVerify()
    'Test the TranslateStringUsingTable function.

    Debug.Assert IsNull(TranslateStringUsingTable(Null, Space$(64) & "ABCDEF")) ' Behavior #1
    
    Debug.Assert IsNull(TranslateStringUsingTable("ABCDEF", Null)) ' Behavior #2

    Debug.Assert TranslateStringUsingTable("ABCDEF", Space$(65)) = "ABCDEF" ' Behavior #3
    
    Debug.Assert TranslateStringUsingTable("ABCDEF", Space$(65) & "abc") = "abcDEF" ' Behavior #4

End Sub