Writing to individual bits in a holding register requires support for function code 22 (masked bit write) which very few devices support. You can either write the bit value (1,2,4,8,16, etc) by using a BasicButton and changing OutputType to WriteValue or by putting code behind to first read the value, set the bit, then write it back.
Dim CurrentValue as string = ModbusTCPCom1.Read("40001")
Dim CurrentValueInt as Integer = Cint(CurrentValue)
CurrentValueInt=(CurrentValuInt or
ModbusTCPCom1.Write("40001", Cstr(CurrentValueInt))
The risk to this is the value can change in between the read and write, therefore the potential of corrupting the other bits.