muste ihn nur noch anpassen. Damit geht es
Select Case C
Case 228 : Text = Text + Chr(132) 'ä
Case 196 : Text = Text + Chr(142) 'Ä
Case 252 : Text = Text + Chr(129) 'ü
Case 220 : Text = Text + Chr(154) 'Ü
Case 246 : Text = Text + Chr(14 'ö
Case 214 : Text = Text + Chr(153) 'Ö

End Select