Visual Basic Function to capitalize the first letter of the first word in a string that may or may not include multiple words.

Capitalize.vb

Private Function Capitalize(str As String) As String
		Dim newStr As String = String.Empty
		If str IsNot Nothing Then
			Dim l As New List(Of String)(str.Split(" "c))
			Dim st As String = l(0)
			Dim f As String = st.Substring(0, 1)
			Dim rest As String = st.Substring(1)
			newStr = String.Join(" ", l).Replace(st, "")
			newStr = $"{f.ToUpper() & rest} {newStr}"
			newStr = newStr.Replace("  ", " ")
			newStr = newStr.Trim()
		End If
		Return newStr
End Function

Note: The $"{} syntax is interpolation and is only available in Visual Studio 2017 and later. If need be, this can be replaced with String Concatenation in one of the ways Visual Basic offers.