VBA web data scraping from table

Sub Scrambledata()

  
Dim searchTerm As String
 

Const searchUrl = "http://www.scramble.nl/index.php?option=com_mildb&view=search"
Const searchTerm = Sheets("Scramble").Range("B2").Value

Dim dom As HTMLDocument
Set dom = New HTMLDocument

With CreateObject("winhttp.winhttprequest.5.1")
    .Open "POST", searchUrl, False
    .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    .send "Itemid=60&af=usaf&serial=" & searchTerm & "&sbm=Search&code=&searchtype=&unit=&cn="
    dom.body.innerHTML = .responseText
End With

Sheets("Scramble").Range("C2").Value = dom.getElementsByClassName("rowBord")(0).Cells(2).innerText

   
    
End Sub

@AB33 I added Dim searchTerm As String
, still getting the same error, see modified code