Necesito filtrar por criterios desde un userform

Tengo este código:

Sub CrearReporte()

Dim wblibroactual As Workbook
Dim wshojaactual As Worksheet
Dim rangodatos As Range
Dim ufila As Long
Dim wblibronuevo As Workbook
Dim criterio As String
Dim campo As Integer

Set wblibroactual = Workbooks(ThisWorkbook.Name)
Set wshojaactual = wblibroactual.ActiveSheet

Set rangodatos = wshojaactual.UsedRange

'Definimos el valor del criterio

rangodatos.AutoFilter field:=1, Criteria1:="tema 5"

ufila = wshojaactual.Range("A" & Rows.Count).End(xlUp).Row

'Copiar datos de filtro
wshojaactual.Range("A1:G" & ufila).Copy

Set wblibronuevo = Workbooks.Add
wblibronuevo.ActiveSheet.Paste

Application.CutCopyMode = False

Windows(wblibroactual.Name).Activate
wshojaactual.Range("A1").Select
Selection.AutoFilter

End Sub

Y necesito que los criterios de filtrado los tome de 2 textbox de un userform, osea que en esta línea de código:

rangodatos.AutoFilter field:=1, Criteria1:="tema 5"

El 1 sea reemplazado por lo que ingrese en un textbox del formulario y "tema5" también.