I actually figured it out. Here's how, FYI:
Private Sub Ok_Click()
ActiveWorkbook.Sheets.Add(After:=Worksheets("Overview"), Type:="C:\My Documents\Credit\FinancialsTemplate.xltx").name = Me.tbname
Range("B5") = "Client Name: " & Me.tbname

Unload Me

End Sub