We utilise MID to parse the string. Unlike an array, which has things that may be accessed, a string does not have items.
Dim atype As String
Dim loc1 As Integer
Dim loanpct As Double
atype = Worksheets("Inputs").Range("B21")
loc1 = InStr(atype, "Loan")
loanpct = Application.Evaluate(Mid(atype, loc1 + 5))
Loanpct is now a numeric value that can be utilized in future codes.
However, this is based on the idea that everything following a Loan- can be transformed into a number. It will fail if there is a non-numeric character after Loan.