Private Sub Command1_Click()
MsgBox MachNamenGross("Heinz-und-Klaus-Hermann-Strasse 12")
End Sub
 
Public Function MachNamenGross(name As String) As String
Dim str() As String
str = Split(name, " ")
Dim name2 As String
Dim item As Variant
For Each item In str
name2 = name2 & " " & UCase(Left(item, 1)) & Mid(item, 2)
Next
If Left(name2, 1) = " " Then name2 = Right(name2, Len(name2) - 1)
name = name2
name2 = ""
str = Split(name, "-")
For Each item In str
name2 = name2 & "-" & UCase(Left(item, 1)) & Mid(item, 2)
Next
If Left(name2, 1) = "-" Then name2 = Right(name2, Len(name2) - 1)
MachNamenGross = name2
End Function

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co