webden çekilen verideki sayı hk

[chakistes]

userform1.TextBox1 = izindilekcesi.WebBrowser1.Document.getElementById("tblOzurluDevamsizlikToplam").innertext

merhaba arkadaşlar yukarıdaki kod ile aşağıdaki yazıları çekiyorum fakat özürsüz devamsızlık toplamı 3 gün olan sayının textbox1 içine sadece 3 sayısını almasını istiyorum.


özürsüz devamsızlıklar
sabahtan yarım Gün 2
tam gün 1
geç (3 geç gelme) 0
özürsüz devamsızlık toplamı 3 gün

 

[Haluk]

Sub Test()
    'Kodlarınız burada....
    '.....
    '...
    myStr = izindilekcesi.WebBrowser1.Document.getElementById("tblOzurluDevamsizlikToplam").innertext
    
    RetVal = Get_Digits(myStr)
    
    MsgBox RetVal
    
    'Diğer kodlar....
    '....
    '..
End Sub
'
Function Get_Digits(myStr) As Integer
    Dim objRegEx As Object
    Set objRegEx = CreateObject("VBscript.RegExp")
    With objRegEx
        .Pattern = "([0-9]+) gün"
        If .Test(myStr) Then
            Get_Digits = Replace(.Execute(myStr)(0), " gün", "")
        Else
           Get_Digits = 0
        End If
    End With
End Function

.

 

[chakistes]

teşekkür ederim yardımınız için

 

[chakistes]

ufak bir sorun var 0,5 olanları 5 olarak yazıyor yada 1,5 gibi küsüratlı sayıları 5 gibi yazıyor