Clicking a button on a web site - vba

Question

I am trying to build a VBA code to visit a website, input email address and password and click "log in" button. I have reached to the point email address and password is inputted, just not able to complete the code for hitting send button.
Below is the core code for VBA:
Function LogintoWebsite(uid As String, password As String) As Boolean
Dim objIE As SHDocVw.InternetExplorer
Dim ieDoc As MSHTML.HTMLDocument
Dim useridF1d As MSHTML.HTMLInputElement 'email
Dim passwordFld As MSHTML.HTMLInputElement 'password
Dim SinginBt As MSHTML.HTMLInputElement 'signin
Set objIE = New SHDocVw.InternetExplorer
objIE.navigate URLstr
Do Until objIE.readyState = READYSTATE_COMPLETE
Loop
Set ieDoc = objIE.document
objIE.Visible = True
Set useridF1d = ieDoc.all.Item("email")
useridF1d.Value = uid
Set passwordFld = ieDoc.all.Item("password")
passwordFld.Value = password
Set SinginBt = ieDoc.all.Item("btn btn-primary m-t-2 btn-block") 'all.Item("btn btn-primary m-t-2 btn-block")
SinginBt.Click
Do Until objIE.readyState = READYSTATE_COMPLETE
Loop
LogintoTransferwise = True
Set objIE = Nothing
Exit Function
And below is the HTML Element for the button:
<button class="btn btn-primary m-t-2 btn-block" type="submit">

Answer 1

Try,
Dim btn As Object
For Each btn In ieDoc.GetElementsByTagName("button")
If InStr(1, btn.InnerText, "Log in", vbTextCompare) > 0 Then
btn.Click
Exit For
End If
Next btn
in place of the lines
Set SinginBt = ieDoc.all.Item("btn btn-primary m-t-2 btn-block") 'all.Item("btn btn-primary m-t-2 btn-block")
SinginBt.Click
(Not Tested)