สอบถามเกี่ยวกับ VB ค่ะ

สับสนเรื่องการเขียนคำสั่งเป็นอย่างมากค่ะ  คือไม่เข้าใจเลยว่า ดิฉันเขียนคำสั่งประมาณนี้


Sub seach_capacity()
Dim text As String
Dim arrayText() As String
Dim i As Integer
Dim no_c As Integer
text = Worksheets("sheet1").Range("a2").Value
arrayText = Split(text, " ", -1, 1)

    For i = 0 To no_c
        If text Like "[0-9]" Then
            arrayText(i) = Val(text)
                
        
            End If
      Next i
          Worksheets("sheet1").Range("b2").Value = arrayText()

End Sub


สมมุติข้อมูลที่อยุที่ช่อง a2 คือ  ผลิตน้ำตาล ยาใจ คนจน ความจุ 30 ตัน   เเล้วต้องการอยากจะได้เเค่ตัวเลข 30
ต้องปรับเปลี่ยนคำสั่งตรงไหนอ่าค่ะ  ทำมาทั้งวันเเล้ว เเต่ไม่เข้าใจเลย  ไม่อยากมั่วไปเรื่อยๆเเบบไม่มีความรู้


เเต่ประสบการณ์การเขียนคำสั่งยังน้อยมากๆๆ เเละความรู้ยังไม่มากเท่าที่ควร  ขอความกรุณาช่วยชี้เเนะด้วยนะค่ะ