Function Zahl_ermitteln(ByVal Text As String, ByVal TeilText As String) As Long
Dim i As Long, Zahl As String, x As Long
i = InStr(1, Text, TeilText)
 
Zahl = ""
 
If i <> 0 Then
    For x = i + Len(TeilText) To Len(Text)
        If IsNumeric(Mid(Text, x, 1)) Then
            Zahl = Zahl & Mid(Text, x, 1)
        Else
            Exit For
        End If
    Next x
    Zahl_ermitteln = CLng(Zahl)
Else
    Zahl_ermitteln = 0
End If
 
End Function
 
Private Sub Command1_Click()
Dim Variable As String, i As Long
 
If Text1 = "" Then Exit Sub
 
Variable = Text1
 
i = Zahl_ermitteln(Variable, "Holz ")
 
If i <> -1 Then
    Text2 = i
End If
 
End Sub