Get Contents Of Currently Highlighted Cell Into A Variable And Place It Elsewhere

How to get the contents of the currently highlighted cell into a variable and how to place it elsewhere. They suggested this....

Sub CurrentCell()
Dim CurrentCellText As String
Dim CurrentCellString As String
CurrentCellString = CStr(ActiveCell.Value)
'.......
'.......
Range("G16").Value = CurrentCellString
End Sub

My question now is - If the cell contains a runnable Dos comand, how do is send it to a Command window. (E.g. netsh interface ip address local static 192.168.0.1.255.255.255.0) (this sets your NIC's ip address).