Extract Capital Letters from Text in cell

Function ExtractCap(Rng As Range)
Application.Volatile
ExtractCap = ""
For f = 1 To Len(Rng)
If Asc(Mid(Rng.Value, f, 1)) >= 65 And Asc(Mid(Rng.Value, f, 1)) <= 90 Then
ExtractCap = ExtractCap & Mid(Rng.Value, f, 1)
End If
Next f
End Function

Function grabcaps(str As String) As String
Dim a As Integer: a = 1
Dim temp As String
    Do While a < (Len(str) + 1)
        If (Asc(Mid(str, a, 1))) = (Asc(UCase(Mid(str, a, 1)))) Then
            temp = temp & Mid(str, a, 1)
        End If
        a = a + 1
    Loop
    grabcaps = temp
End Function

Function GetCaps(ByVal str As String) As String
With CreateObject("VBScript.RegExp")
    .Pattern = "[^A-Z]"
    .Global = True
    GetCaps = .Replace(str, "")
End With
End Function