Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As _
   System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
        Dim ht As New Hashtable
        ht.Add("$", "Dollar")
        ht.Add("€", "Euro")
        For Each key As Object In ht.Keys
            If e.KeyChar = CType(key.ToString, Char) Then
                CType(sender, TextBox).AppendText(ht.Item(key).ToString)
                e.Handled = True
                Return
            End If
        Next
    End Sub